home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
areaco.arc
/
AREACODE.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-06-15
|
5KB
|
79 lines
areacode
Area Code Lookup
wwwwwwwwwwwwwwp
wwwwwwwwwwwwwwp
Form1
Label2
Area Code:
Label3
Location:
location
Label1
Time:
ltime
Command1
Look Up Area Code
Form_Click
areacodes
timezones
areanames
numac
loadac
done2
tzhere
Command1_Click
findac+
location
captionr
ltime
@ Form_Load
ac_ChangeT
selstart
sellength
mousepointer
tzformat
Thenlocation&
All the areacodes
Timezones from GMT
Name of the Area Codest
# of areacodes
Local time zone
How we like time/dates formattedi
loadac
This routine loads in the area code file, which iss
assumed to be called "ac.dat". The file containss
two sections. The first section contains two lines,,
the first being the local time zone (offset from GMT),,
and the second line holding the time/date format the user
prefers..
The second section contains the list of area codes, one per
line. The format is areacode/GMT offset/name
Location of slashes in text
Fields of the text
Say we're busy
ac.dat
Open the database
Read local time zone
Read prefered format
Read in the table of areacodess
First break the line into the three pieces (/ is delimeter)
Then, assign our arrays the piecese
Decrement numac as it's past the end of the datai
Say we're not busy anymore...
Command1_Click
This routine finds the area code the user has entered, displays the
location and the time at that location. No attempt is made to handle
areacodes which are split across time zones or places that do not
go onto daylight savings time with the rest of the nation....
The current areacode as an integera
We mark the areacode the user entered as "selected", so that afterr
we finish the user can just start typing in a new area code without
having to delete the old one...
Search ...d
When we find the area code, update the location and local times...
We didn't find the area code! Beep, erase all text on the display,,
and open a message box to complain!
Invalid Area Code"
Form_Load
When the form is first loaded, read in the area code database